object MainForm: TMainForm
  Left = 561
  Top = 126
  Caption = 'Space Lab'
  ClientHeight = 764
  ClientWidth = 894
  Color = clBlack
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyPress = FormKeyPress
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Label7: TLabel
    Left = 400
    Top = 88
    Width = 64
    Height = 13
    Caption = 'Updates/Sec'
  end
  object SetUpPnl: TPanel
    Left = 0
    Top = 0
    Width = 894
    Height = 153
    Align = alTop
    Color = clBlack
    TabOrder = 0
    object Panel1: TPanel
      Left = 8
      Top = 8
      Width = 601
      Height = 73
      Color = clGreen
      TabOrder = 0
      object Label5: TLabel
        Left = 8
        Top = 8
        Width = 83
        Height = 13
        Caption = 'Mass in kilograms'
      end
      object Label6: TLabel
        Left = 144
        Top = 8
        Width = 90
        Height = 13
        Caption = 'Speed Meters/Sec'
      end
      object Distance: TLabel
        Left = 280
        Top = 8
        Width = 87
        Height = 13
        Caption = 'Distance in meters'
      end
      object Label1: TLabel
        Left = 416
        Top = 8
        Width = 61
        Height = 13
        Caption = 'Object count'
      end
      object ObjectMassCB: TComboBox
        Left = 8
        Top = 24
        Width = 121
        Height = 21
        DropDownCount = 30
        ItemHeight = 13
        TabOrder = 0
        Text = '10'
        Items.Strings = (
          '1'
          '10'
          '100'
          '1000'
          '10,000'
          '100,000'
          '1,000,000'
          '1.000E9'
          '1.000E17 Asteroid'
          '7.354E22 Moon'
          '5.979E24 Earth'
          '8.682E25 Uranus'
          '1.901E27 Jupiter'
          '1.991E30 Sun')
      end
      object ObjectMassVariationCB: TComboBox
        Left = 8
        Top = 44
        Width = 121
        Height = 21
        ItemHeight = 13
        TabOrder = 1
        Text = '2'
        Items.Strings = (
          '1 No variation'
          '1.1 10% variation'
          '2 Half to double'
          '10 1/10 to 10 times'
          '100 1/100 to 100 times')
      end
      object ObjectSpeedVariationCB: TComboBox
        Left = 144
        Top = 44
        Width = 121
        Height = 21
        ItemHeight = 13
        TabOrder = 2
        Text = '2'
        Items.Strings = (
          '1 No variation'
          '1.1 10% variation'
          '2 Half to double'
          '10 1/10 to 10 times'
          '100 1/100 to 100 times')
      end
      object ObjectSpeedCB: TComboBox
        Left = 144
        Top = 24
        Width = 121
        Height = 21
        DropDownCount = 20
        ItemHeight = 13
        TabOrder = 3
        Text = '0.1'
        Items.Strings = (
          '0'
          '1'
          '10'
          '100'
          '1000'
          '4736.5 Pluto'
          '9638.3 Saturn'
          '29771 Earth'
          '47828 Mercury'
          '100000')
      end
      object ObjectDistanceCB: TComboBox
        Left = 280
        Top = 24
        Width = 121
        Height = 21
        DropDownCount = 20
        ItemHeight = 13
        TabOrder = 4
        Text = '300'
        Items.Strings = (
          '0'
          '10'
          '100'
          '1000'
          '10,000'
          '100,000'
          '1,000,000'
          '1.00E10'
          '5.58E10 Mercury'
          '1.44E11 Earth'
          '1.37E12 Saturn'
          '5.69E12 Pluto')
      end
      object ObjectDistanceVariationCB: TComboBox
        Left = 280
        Top = 44
        Width = 121
        Height = 21
        ItemHeight = 13
        TabOrder = 5
        Text = '2'
        Items.Strings = (
          '1 No variation'
          '1.1 10% variation'
          '2 Half to double'
          '10 1/10 to 10 times'
          '100 1/100 to 100 times')
      end
      object ObjectCountCB: TComboBox
        Left = 416
        Top = 24
        Width = 81
        Height = 21
        ItemHeight = 13
        TabOrder = 6
        Text = '100'
        Items.Strings = (
          '1'
          '10'
          '100'
          '1000')
      end
      object AddObjectsBtn: TBitBtn
        Left = 512
        Top = 8
        Width = 81
        Height = 25
        Caption = 'Add objects'
        TabOrder = 7
        OnClick = AddObjects
      end
      object DeleteObjectsBtn: TBitBtn
        Left = 512
        Top = 40
        Width = 81
        Height = 25
        Caption = 'Delete objects'
        TabOrder = 8
        OnClick = DeleteObjectsBtnClick
      end
    end
    object Panel2: TPanel
      Left = 8
      Top = 88
      Width = 601
      Height = 57
      Color = clGreen
      TabOrder = 1
      object Label2: TLabel
        Left = 8
        Top = 8
        Width = 106
        Height = 13
        Caption = 'Acceleration equation:'
      end
      object EquationLbl: TLabel
        Left = 8
        Top = 24
        Width = 29
        Height = 13
        Caption = 'Mass*'
      end
      object Label3: TLabel
        Left = 120
        Top = 24
        Width = 56
        Height = 13
        Caption = '/(Distance^'
      end
      object Label4: TLabel
        Left = 264
        Top = 24
        Width = 3
        Height = 13
        Caption = ')'
      end
      object Label8: TLabel
        Left = 280
        Top = 8
        Width = 64
        Height = 13
        Caption = 'Updates/Sec'
      end
      object Simulate: TLabel
        Left = 400
        Top = 8
        Width = 99
        Height = 13
        Caption = 'SecsPassed/Update'
      end
      object GCB: TComboBox
        Left = 40
        Top = 24
        Width = 81
        Height = 21
        DropDownCount = 20
        ItemHeight = 13
        TabOrder = 0
        Text = '1'
        Items.Strings = (
          '0'
          '1'
          '6.67E-11 G')
      end
      object DistancePowerCB: TComboBox
        Left = 176
        Top = 24
        Width = 89
        Height = 21
        ItemHeight = 13
        TabOrder = 1
        Text = '2    Gravity.'
        Items.Strings = (
          '0.5 Rubber band.'
          '0    Funnel.'
          '1    Spirograph.'
          '2    Gravity.'
          '3    Rose.')
      end
      object UpdatePerSecCB: TComboBox
        Left = 280
        Top = 24
        Width = 105
        Height = 21
        ItemHeight = 13
        TabOrder = 2
        Text = '50'
        Items.Strings = (
          '1'
          '2.5'
          '5'
          '10'
          '25'
          '50'
          '100'
          '250'
          '500'
          '1000'
          'Full Blast')
      end
      object ApplyBtn: TBitBtn
        Left = 512
        Top = 16
        Width = 81
        Height = 25
        Caption = 'Apply'
        TabOrder = 3
        OnClick = UpdateSettings
      end
      object SimIntervalCB: TComboBox
        Left = 400
        Top = 24
        Width = 105
        Height = 21
        ItemHeight = 13
        TabOrder = 4
        Text = '1'
        Items.Strings = (
          '1 Sec'
          '60 Minute'
          '3600 Hour'
          '86400 Day')
      end
    end
    object Panel4: TPanel
      Left = 616
      Top = 8
      Width = 273
      Height = 137
      Color = clGreen
      TabOrder = 2
      object Label9: TLabel
        Left = 168
        Top = 8
        Width = 25
        Height = 13
        Caption = 'Seed'
      end
      object Label10: TLabel
        Left = 168
        Top = 56
        Width = 20
        Height = 13
        Caption = 'FPS'
      end
      object StartSimulationBtn: TBitBtn
        Left = 8
        Top = 8
        Width = 75
        Height = 25
        Caption = 'Start'
        TabOrder = 0
        OnClick = StartSimulationBtnClick
      end
      object StopSimulationBtn: TBitBtn
        Left = 8
        Top = 40
        Width = 75
        Height = 25
        Caption = 'Stop'
        TabOrder = 1
        OnClick = StopSimulationBtnClick
      end
      object ResetCamaraBtn: TBitBtn
        Left = 8
        Top = 72
        Width = 75
        Height = 25
        Caption = 'Reset camara'
        TabOrder = 2
        OnClick = ResetCamaraBtnClick
      end
      object TrailsCheck: TCheckBox
        Left = 16
        Top = 112
        Width = 49
        Height = 17
        Caption = 'Trails'
        TabOrder = 3
      end
      object FindLargestMassBtn: TBitBtn
        Left = 88
        Top = 8
        Width = 75
        Height = 25
        Caption = 'Large Mass'
        TabOrder = 4
      end
      object NextMassBtn: TBitBtn
        Left = 88
        Top = 40
        Width = 75
        Height = 25
        Caption = 'Next Mass'
        TabOrder = 5
        OnClick = NextMassBtnClick
      end
      object AddShipBtn: TBitBtn
        Left = 88
        Top = 72
        Width = 75
        Height = 25
        Caption = 'Add Ship'
        TabOrder = 6
        OnClick = AddShipBtnClick
      end
      object DriftTurnCheck: TCheckBox
        Left = 88
        Top = 112
        Width = 97
        Height = 17
        Caption = 'Drift Turn'
        TabOrder = 7
      end
      object SeedEdit: TEdit
        Left = 168
        Top = 24
        Width = 73
        Height = 21
        TabOrder = 8
        Text = '1'
      end
      object FramesPerSecEdit: TEdit
        Left = 168
        Top = 72
        Width = 73
        Height = 21
        TabOrder = 9
        Text = '50'
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 745
    Width = 894
    Height = 19
    Panels = <
      item
        Text = 'Objects'
        Width = 100
      end
      item
        Text = 'Secs/Update'
        Width = 150
      end
      item
        Text = 'Updates/Sec'
        Width = 150
      end
      item
        Text = 'Total updates'
        Width = 100
      end
      item
        Text = 'Scale'
        Width = 150
      end>
  end
  object Timer: TTimer
    OnTimer = TimerTimer
    Left = 8
    Top = 168
  end
end
